package Tkad::Handler;

use strict;
use warnings;

sub new {
	my $package = shift;
	my $self    = { };
	return bless $self, $package;
}


sub handle {
	my $self    = shift;
	my $can     = shift;
        my $ibutton = shift;
	my $x       = shift;
	my $y       = shift;

	print("Null handler: clicked at ($x,$y)\n");
	return;
}



# module OK
1;

